home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Run Magazine ReRun 1990 November & December
/
rerun-1990-11-12.d64
/
text fx window
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
233b
|
7 lines
5 poke 53281,2:poke 53280,2:poke 646,1
6 fort=1to400:print".";:next
10 if a=0 then a=1:load "text fx",8,1:rem load text fx
20 sa=49152:rem starting address of text fx
30 sys sa,10,10,20,20:rem set up the fade
40 sys sa+3:if peek(2)=0 then 40:rem loop for windowfade